(define (test x y)
    (= x y))

(define (soma-2-maiores-ao-quadrado x y z)
  (cond 
      ((and (< x y) (< x z)) (+ (* y y) (* z z)))
      ((and (< y x) (< y z)) (+ (* x x) (* z z)))
      (else (+ (* x x) (* y y)))))

; testes, copiados do lr:

(test (soma-2-maiores-ao-quadrado 4 3 2) 25)
(test (soma-2-maiores-ao-quadrado 4 2 3) 25)
(test (soma-2-maiores-ao-quadrado 2 3 4) 25)
(test (soma-2-maiores-ao-quadrado 2 4 3) 25)
(test (soma-2-maiores-ao-quadrado 3 4 2) 25)
(test (soma-2-maiores-ao-quadrado 3 2 4) 25)
(test (soma-2-maiores-ao-quadrado 4 4 2) 32)
(test (soma-2-maiores-ao-quadrado 2 4 4) 32)
(test (soma-2-maiores-ao-quadrado 4 2 4) 32)
(test (soma-2-maiores-ao-quadrado 4 2 2) 20)
(test (soma-2-maiores-ao-quadrado 2 4 2) 20)
(test (soma-2-maiores-ao-quadrado 2 2 4) 20)

